home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / gmplaygui / gui / gp < prev    next >
AmigaDOS Script File  |  1997-06-14  |  1KB  |  67 lines
  1. .key fil
  2. .bra {
  3. .ket }
  4.  
  5.     setenv gm "{fil}"
  6.     setenv fb "$gm"
  7.     list >env:short "$gm" lformat "%n"
  8.     list >env:gmtt "$gm" lformat %c
  9.     if "$gmtt" NOT EQ ""
  10.         setenv shortinfo "($gmtt)"
  11.     else
  12.         setenv shortinfo "Playing at $freq Hz in $gmst"
  13.     endif
  14.     
  15.     unsetenv gmtt
  16.     
  17.     if NOT $gmch EQ 0
  18.         setenv gmch 0
  19.     else
  20.         setenv gmpl `eval $gmplb+1`
  21.         setenv gmplb $gmpl 
  22.         setenv gmdisp "$gmpl ($gmant)"
  23.     endif
  24.         
  25.         setenv gmm `eval $gmm+1`
  26.         setenv gmopts gmplay $gmopt $gmst $gmdf $gmtf frequency $freq priority $gmpri
  27.         gmd:gmplay >nil: "$gm"
  28.         
  29.         if WARN
  30.             setenv gmch $gmpl
  31.             setenv fb "Felmekansimen Urban"
  32.             gmd:gmplay >nil: "$gm"
  33.  
  34.  
  35.             why >env:gmfel 
  36.             copy >nil: fel.sel t:
  37.             /selectortext env:gmopts >>t:fel.sel 50
  38.             echo >>t:fel.sel color dark
  39.             /selectortext env:gmfel >>t:fel.sel 50
  40.             unsetenv gmfel
  41.             type fel2.sel >>t:fel.sel
  42.             selector t:fel.sel
  43.             delete >nil: t:fel.sel
  44.         endif
  45.  
  46.  
  47.     if exists env:gmpause
  48.         unsetenv gmpause
  49.         setenv short Paused
  50.         setenv gmii ";"
  51.         setenv gmm `eval $gmm+1`
  52.         
  53.         selector pause.sel
  54.         
  55.         setenv gmii ""
  56.         setenv fb "pause ended"
  57.         setenv gmch $gmpl
  58.     endif
  59.  
  60.     if not exists env:gm
  61.         quit
  62.     endif 
  63.     
  64.     if not "$gm" EQ "$fb"
  65.         execute gp "$gm"
  66.     endif
  67.